home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Memory Tools.cpt / Memory Tools / card_2385.txt < prev    next >
Text File  |  1989-01-07  |  7KB  |  338 lines
  1. -- card: 2385 from stack: in
  2. -- bmap block id: 10171
  3. -- flags: 0000
  4. -- background id: 2209
  5. -- name: dynamic
  6. ----- HyperTalk script -----
  7. on opencard
  8.  
  9.   hide card field "hexval"
  10.   hide card field "optd"
  11. end opencard
  12.  
  13.  
  14. on idle
  15.   put peeklong(H16A) into card field "ticks"
  16.   put peekbyte(H172) into card field "MbState"
  17.   put peeklong(H174)&peeklong(H178) into card field "KeyMap"
  18.   put peeklong(H17C)&peeklong(H180) into card field "KeyPadMap"
  19.   put peekword(H184) into card field "KeyLast"
  20.   put peeklong(H20C) into card field "time"
  21.   put Peekword(H830)&&peekword(H832) into card field "mouseloc"
  22.   --put peekword("88C") into card field "curdata"
  23.   put peeklong("88E") into card field "curdata"
  24.   put peekbyte("8D2") into card field "curvis"
  25.  
  26. end idle
  27.  
  28.  
  29.  
  30. -- part 1 (field)
  31. -- low flags: 01
  32. -- high flags: 0000
  33. -- rect: left=85 top=66 right=83 bottom=220
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 0
  37. -- font id: 3
  38. -- text size: 12
  39. -- style flags: 0
  40. -- line height: 16
  41. -- part name: time
  42.  
  43.  
  44. -- part 2 (field)
  45. -- low flags: 01
  46. -- high flags: 0000
  47. -- rect: left=139 top=99 right=116 bottom=274
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 0
  51. -- font id: 3
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: MbState
  56.  
  57.  
  58. -- part 3 (field)
  59. -- low flags: 01
  60. -- high flags: 0000
  61. -- rect: left=91 top=129 right=146 bottom=226
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 0
  65. -- font id: 3
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: ticks
  70.  
  71.  
  72. -- part 4 (field)
  73. -- low flags: 01
  74. -- high flags: 0000
  75. -- rect: left=123 top=38 right=55 bottom=258
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 0
  79. -- font id: 3
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: mouseloc
  84.  
  85.  
  86. -- part 5 (field)
  87. -- low flags: 01
  88. -- high flags: 0000
  89. -- rect: left=109 top=163 right=180 bottom=244
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 0
  93. -- font id: 3
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: keymap
  98.  
  99.  
  100. -- part 6 (field)
  101. -- low flags: 01
  102. -- high flags: 0000
  103. -- rect: left=105 top=194 right=211 bottom=240
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 0
  107. -- font id: 3
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: keypadmap
  112.  
  113.  
  114. -- part 7 (field)
  115. -- low flags: 01
  116. -- high flags: 0000
  117. -- rect: left=109 top=227 right=244 bottom=244
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 0
  121. -- font id: 3
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: keylast
  126.  
  127.  
  128. -- part 9 (field)
  129. -- low flags: 01
  130. -- high flags: 0000
  131. -- rect: left=171 top=260 right=277 bottom=245
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 0
  135. -- font id: 3
  136. -- text size: 12
  137. -- style flags: 0
  138. -- line height: 16
  139. -- part name: CurData
  140.  
  141.  
  142. -- part 12 (field)
  143. -- low flags: 01
  144. -- high flags: 0000
  145. -- rect: left=117 top=284 right=301 bottom=158
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 0
  149. -- font id: 3
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: curvis
  154.  
  155.  
  156. -- part 13 (button)
  157. -- low flags: 00
  158. -- high flags: 0000
  159. -- rect: left=136 top=279 right=291 bottom=151
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: optD
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   show card field "optD"
  171.   wait until the mouseclick
  172.   hide card field "optD"
  173. end mouseUp
  174.  
  175.  
  176.  
  177. -- part 14 (field)
  178. -- low flags: 81
  179. -- high flags: 0004
  180. -- rect: left=159 top=182 right=301 bottom=476
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 0
  184. -- font id: 0
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: OptD
  189.  
  190.  
  191. -- part 15 (button)
  192. -- low flags: 00
  193. -- high flags: 0000
  194. -- rect: left=196 top=32 right=44 bottom=212
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: info
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   show card field "hexval"
  206.   wait until the mouseclick
  207.   hide card field "hexval"
  208. end mouseUp
  209.  
  210.  
  211.  
  212. -- part 16 (field)
  213. -- low flags: 81
  214. -- high flags: 2004
  215. -- rect: left=225 top=25 right=145 bottom=497
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 0 / 0
  218. -- text alignment: 0
  219. -- font id: 0
  220. -- text size: 12
  221. -- style flags: 0
  222. -- line height: 16
  223. -- part name: hexval
  224.  
  225.  
  226. -- part 17 (button)
  227. -- low flags: 00
  228. -- high flags: A000
  229. -- rect: left=0 top=296 right=340 bottom=53
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 30557 / 30557
  232. -- text alignment: 1
  233. -- font id: 0
  234. -- text size: 12
  235. -- style flags: 0
  236. -- line height: 16
  237. -- part name: Options
  238. ----- HyperTalk script -----
  239. on mouseUp
  240.   visual effect iris close slowly
  241.   go card "options"
  242. end mouseUp
  243.  
  244.  
  245.  
  246. -- part 18 (button)
  247. -- low flags: 00
  248. -- high flags: 0000
  249. -- rect: left=50 top=254 right=273 bottom=173
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 1
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: New Button
  258. ----- HyperTalk script -----
  259. on mouseUp
  260.   show card field "curdatahelp"
  261.   wait until the mouseclick
  262.   hide card field "curdatahelp"
  263. end mouseUp
  264.  
  265.  
  266.  
  267. -- part 19 (field)
  268. -- low flags: 81
  269. -- high flags: 0004
  270. -- rect: left=177 top=205 right=257 bottom=473
  271. -- title width / last selected line: 0
  272. -- icon id / first selected line: 0 / 0
  273. -- text alignment: 0
  274. -- font id: 0
  275. -- text size: 12
  276. -- style flags: 0
  277. -- line height: 16
  278. -- part name: curdatahelp
  279.  
  280.  
  281. -- part contents for card part 3
  282. ----- text -----
  283. 0001973C
  284.  
  285. -- part contents for card part 2
  286. ----- text -----
  287. 80
  288.  
  289. -- part contents for card part 5
  290. ----- text -----
  291. 0000000000000000
  292.  
  293. -- part contents for card part 6
  294. ----- text -----
  295. 0000000000000000
  296.  
  297. -- part contents for card part 7
  298. ----- text -----
  299. 0000
  300.  
  301. -- part contents for card part 1
  302. ----- text -----
  303. 9FE829C5
  304.  
  305. -- part contents for card part 4
  306. ----- text -----
  307. 0174 0061
  308.  
  309. -- part contents for card part 9
  310. ----- text -----
  311. B3524081
  312.  
  313. -- part contents for card part 12
  314. ----- text -----
  315. 00
  316.  
  317. -- part contents for card part 14
  318. ----- text -----
  319. To see the cursor disappear, type any character key.
  320. When the cursor disappears, you will see the
  321. value of the field CursorVis change to 01.
  322.  
  323. (Click the mouse to continue)
  324.  
  325. -- part contents for card part 16
  326. ----- text -----
  327. All values shown on this card are in
  328. hexadecimal. You may alter the script
  329. in this card to show decimal values
  330. instead by using the HexToDec XFCN included with this stack.
  331.  
  332. (Click the mouse to continue)
  333.  
  334. -- part contents for card part 19
  335. ----- text -----
  336. This field is not valid on a Macintosh II. 
  337.  
  338. Click the mouse to continue.